% V20210224 - 13.5 Panel Example INCLUDE "GW.bas" eol$ = chr$(10) % Create a page. p = GW_NEW_PAGE() % Prepare title bar string. Title$ = GW_ADD_BAR_TITLE$("Panel Example") % Add title to page. GW_ADD_TITLEBAR(p,Title$) % Add descriptive text. GW_ADD_TEXT(p, "This is an example of the PANEL control:") % Add button to activate the panel. GW_ADD_BUTTON(p, "Let's do this!", "show") % Let's prepare the panel. p$ = "Long, long ago ..." p$ += eol$ + eol$ p$ += "In a galaxy far, far away ..." pan = GW_ADD_PANEL(p, p$) % Now show the page. GW_RENDER(p) DO % Wait for user action. r$ = GW_WAIT_ACTION$() % Place here any necessary code to process user actions. % Test for button press. IF r$ = "show" then GW_SHOW_PANEL(pan) % End when BACK key is pressed. UNTIL r$ = "BACK" END "End of PANEL example."